home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / text / hyper / moreHTML.lha / moreHTML / Rexx / preview.ged
Text File  |  1997-08-01  |  1KB  |  64 lines
  1. /*  $VER: 1.0, ©1996 Dietmar Eilert.
  2.  *  Modified by Dirk Holtwick, 1997.
  3.  *
  4.  *  HTML preview for moreHTML 1.2+
  5.  */
  6.  
  7. OPTIONS RESULTS                             /* enable return codes     */
  8.  
  9. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  10.     address 'GOLDED.1'
  11.  
  12. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  13.  
  14. if (RC ~= 0) then
  15.     exit
  16.  
  17. OPTIONS FAILAT 6                            /* ignore warnings         */
  18.  
  19. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  20.  
  21. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  22.  
  23. if (show('P', "MOREHTML.1") = 0) then
  24.  
  25.     'REQUEST PROBLEM="IBrowse ARexx port not found"'
  26.  
  27. else do
  28.  
  29.     'QUERY DOC VAR=DOC'
  30.  
  31.     if (exists(DOC)) then
  32.  
  33.         'SAVE ALL'
  34.  
  35.     else do
  36.  
  37.         DOC = "t:preview.html"
  38.  
  39.         'SAVE ALL EXPORT NAME="' || DOC || '"'
  40.     end
  41.  
  42.     'UNLOCK'
  43.  
  44.     ADDRESS 'MOREHTML.1'
  45.  
  46.     'OPEN URL "file://localhost/' || DOC || '"'
  47.  
  48.     exit
  49. end
  50.  
  51. /* ---------------------------- END OF YOUR CODE --------------------- */
  52.  
  53. 'UNLOCK' /* VERY important: unlock GUI */
  54.  
  55. exit
  56.  
  57. SYNTAX:
  58.  
  59. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  60.  
  61. 'UNLOCK'
  62.  
  63. exit
  64.